home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / area2.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  253 b   |  17 lines
  1.  Colors=4
  2.  SCREEN 1,640,200,Colors,2
  3.  WINDOW 1,"Areas",,15,1
  4. FOR x = 0 TO 617
  5. co = co+1:IF co>(2^Colors)-1 THEN co=0
  6. COLOR co,0
  7. y1=90+80*SIN(x/49)
  8. y2=90+70*COS((617-x)/25)
  9. x2=ABS(320-x)
  10. AREA (x,y1)
  11. AREA (x2,y2)
  12. AREA (x,x/4)
  13. AREA (320,90)
  14. AREAFILL
  15. NEXT
  16.  
  17.